home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Unreleased / (c)aaa.d64 / directory.c (.txt) < prev    next >
Commodore BASIC  |  2009-02-07  |  11KB  |  516 lines
  1. 10 REM DIRECTORY SCRUNCH AND SORT
  2. 20 :
  3. 30 :
  4. 40 REM BL(X)=DIRECTORY SECTOR SEQUENCE
  5. 50 REM EN$(X)=DIRECTORY ENTRIES
  6. 60 REM P(X)=POINTER
  7. 70 DIM BL(18),EN$(144),P(144),PC$(5)
  8. 80 A$="":REM RESERVE SPACE EARLY
  9. 90 :
  10. 100 :
  11. 110 REM PRINTER CODES - CUSTOMIZE
  12. 120 PC$(1)=CHR$(27)+CHR$(64):                      REM INITIALIZE PRINTER
  13. 130 PC$(2)=CHR$(27)+CHR$(77)+CHR$(13):             REM SET LEFT MARGIN AT 13
  14. 140 PC$(3)=CHR$(14):REM ONE LINE                   EXPANDED PRINT FOR TITLE
  15. 150 CR$=CHR$(13):                               REM CARRIAGE RETURN
  16. 160 FF$=CHR$(12):                               REM FORM FEED
  17. 170 :
  18. 180 REM SECONDARY ADDRESSES "OPEN4,4,X"
  19. 190 SG=5:REM GRAPHICS OR TRANSPARENT
  20. 200 SU=0:REM UPPER CASE ONLY
  21. 210 SL=7:REM UPPER AND LOWER CASES
  22. 220 :
  23. 230 :
  24. 240 POKE53280,12:POKE53281,15:PRINT"[147][151]"
  25. 250 SP$=CHR$(32):DN$="NONE":ID$=""
  26. 260 SS$="           ":SC=0
  27. 270 FORI=49408TO49423:READA:POKEI,A:NEXTI
  28. 280 SH$=""
  29. 290 FORI=1TO18:READBL(I):SH$=SH$+CHR$(160):NEXTI
  30. 300 NL$=""
  31. 310 FORI=1TO30:NL$=NL$+CHR$(0):NEXT
  32. 320 FORI=1TO5:READTP$(I):NEXTI
  33. 330 :
  34. 340 :
  35. 350 REM MAIN MENU
  36. 360 :
  37. 370 GOSUB4550
  38. 380 PRINTTAB(15)"MAIN MENU"
  39. 390 PRINT" [164]     [164]":PRINT" I[146]NPUT/O[146]UTPUT"
  40. 400 PRINT" [164]    [164]":PRINT" V[146]IEW/P[146]RINT"
  41. 410 PRINT" [164]":PRINT" E[146]DIT DIRECTORY"
  42. 420 PRINT" [164]":PRINT" H[146]EADER/ID EDIT"
  43. 430 PRINT" [164]":PRINT" Q[146]UIT"
  44. 440 GETB$:IFB$=""THEN440
  45. 450 IFB$="I"ORB$="O"THEN550
  46. 460 IFB$="V"ORB$="P"THEN670
  47. 470 IFB$="E"THEN810
  48. 480 IFB$="H"THEN4280
  49. 490 IFB$="Q"THENEND
  50. 500 GOTO440
  51. 510 :
  52. 520 :
  53. 530 REM DIRECTORY LOAD OR OUTPUT MENU
  54. 540 :
  55. 550 GOSUB4550
  56. 560 PRINTTAB(7)" DIRECTORY LOAD OR OUTPUT"
  57. 570 PRINT" [164]":PRINT" R[146]EAD IN NEW DIRECTORY"
  58. 580 PRINT" [164]":PRINT" W[146]RITE OUT DIRECTORY TO DISK"
  59. 590 GETB$:IFB$=""THEN590
  60. 600 IFB$="R"THEN1050
  61. 610 IFB$="W"THEN2250
  62. 620 GOTO590
  63. 630 :
  64. 640 :
  65. 650 REM VIEW OR PRINT MENU
  66. 660 :
  67. 670 GOSUB4550
  68. 680 PRINTTAB(8)"VIEW OR PRINT DIRECTORY"
  69. 690 PRINT" [164]":PRINT" V[146]IEW DIRECTORY"
  70. 700 PRINT" [164]":PRINT" P[146]RINT DIRECTORY"
  71. 710 PRINT" [164]":PRINT" R[146]ETURN TO MAIN MENU"
  72. 720 GETB$:IFB$=""THEN720
  73. 730 IFB$="V"THENGOSUB5080:GOTO670
  74. 740 IFB$="P"THEN3420
  75. 750 IFB$="R"THEN370
  76. 760 GOTO720
  77. 770 :
  78. 780 :
  79. 790 REM EDIT DIRECTORY MENU
  80. 800 :
  81. 810 GOSUB4550
  82. 820 PRINTTAB(13)"EDIT DIRECTORY"
  83. 830 PRINT" [164]":PRINT" E[146]RASE SCRATCHED ENTRIES"
  84. 840 PRINT" [164]":PRINT" S[146]ORT DIRECTORY"
  85. 850 PRINT" [164]":PRINT" M[146]OVE SELECTED ENTRIES"
  86. 860 PRINT" [164]":PRINT" A[146]DD DUMMY ENTRY
  87. 870 [153]" TO":[153]" CWAITHANGE ENTRY NAME"
  88. 880 [153]" TO":[153]" DWAITELETE ENTRY"
  89. 890 [153]" TO":[153]" VWAITIEW DIRECTORY"
  90. 900 [153]" TO":[153]" RWAITETURN TO MAIN MENU"
  91. 910 [161]B$:[139]B$[178]""[167]910
  92. 920 [139]B$[178]"E"[167]1640
  93. 930 [139]B$[178]"S"[167]1750
  94. 940 [139]B$[178]"M"[167]1950
  95. 950 [139]B$[178]"A"[167]4050
  96. 960 [139]B$[178]"C"[167]4610
  97. 970 [139]B$[178]"D"[167]4860
  98. 980 [139]B$[178]"V"[167][141]5080:[137]810
  99. 990 [139]B$[178]"R"[167]370
  100. 1000 [137]910
  101. 1010 :
  102. 1020 :
  103. 1030 [143] READ IN DIRECTORY
  104. 1040 :
  105. 1050 [153]"LOAD"[163]9)"READ IN NEW DIRECTORY"
  106. 1060 [129]I[178]1[164]144:P(I)[178]I:[130]I
  107. 1070 [153][163]20)"TOTOTOTOTOTO"
  108. 1080 [153]" INSERT DISK, PRESS RETURNWAIT"
  109. 1090 [161]B$:[139]B$[179][177][199](13)[167]1090
  110. 1100 [153]" READING DIRECTORY HEADER"
  111. 1110 [159]15,8,15
  112. 1120 [152]15,"I0"
  113. 1130 [132]15,AN$,AM$,AT$,AS$
  114. 1140 [139]AN$[179][177]"00"[137]2840
  115. 1150 [159]2,8,2,"#"
  116. 1160 [132]15,AN$,AM$,AT$,AS$
  117. 1170 [139]AN$[179][177]"00"[137]2830
  118. 1180 AI[178]256[172][194](46)[170][194](45):[143] A$ INDEX
  119. 1190 [151]254,0:[151]255,192:[143] DIR.BLK. TO BE AT 49152
  120. 1200 [152]15,"U1";2;0;18;0
  121. 1210 [158]49408
  122. 1220 [151]AI[170]2,18
  123. 1230 AJ[178]49152[170]144
  124. 1240 [141]1560
  125. 1250 DN$[178]A$
  126. 1260 [151]AI[170]2,2
  127. 1270 AJ[178]49152[170]162:[141]1560
  128. 1280 ID$[178]A$
  129. 1290 BF[178]0:[151]AI[170]2,141:AJ[178]49153:[141]1560
  130. 1300 [129]I[178]4[164]140[169]4
  131. 1310 [139]I[178]72[167]1340
  132. 1320 B$[178][202](A$,I,1)
  133. 1330 BF[178]BF[170][198](B$)
  134. 1340 [130]I
  135. 1350 [153]" DISKNAME: "DN$"  ID: "ID$
  136. 1360 [153]" "BF" BLOCKS FREE"
  137. 1370 [153]" READING DIRECTORY BLOCKON"
  138. 1380 I[178]0:[151]AI[170]2,30:[143] LEN(A$)=30
  139. 1390 [152]15,"U1";2;0;18;BL(I[173]8[170]1)
  140. 1400 [153][163]24)I[173]8[170]1"ON"
  141. 1410 [158]49408:[143] READ IN DIR.BLK.
  142. 1420 TR[178][194](49152):BL[178][194](49153)
  143. 1430 [129]J[178]0[164]7:[143] SET A$=DIR.ENTRY 0-7
  144. 1440 AJ[178]49154[170]J[172]32
  145. 1450 [141]1560
  146. 1460 EN$(I[170]J[170]1)[178]A$
  147. 1470 [130]J
  148. 1480 [139]BL(I[173]8[170]1)[179][177]18[175]TR[179][177]0[167]I[178]I[170]8:[137]1390
  149. 1490 [160]2
  150. 1500 [132]15,AN$,AM$,AT$,AS$
  151. 1510 [160]15
  152. 1520 NF[178]I[170]8
  153. 1530 FT[178][198]([200](EN$(NF),1))
  154. 1540 [139]FT[178]0[167]NF[178]NF[171]1:[139]NF[179][177]0[167]1530:[143] UNCOUNT EMPTY ENTRIES
  155. 1550 [137]370
  156. 1560 HB[178][181](AJ[173]256)
  157. 1570 [151]AI[170]3,AJ[171]HB[172]256
  158. 1580 [151]AI[170]4,HB
  159. 1590 [142]
  160. 1600 :
  161. 1610 :
  162. 1620 [143] ERASE SCRATCHED ENTRIES
  163. 1630 :
  164. 1640 [153]"LOAD ERASING ENTRIES FOR SCRATCHED FILES"
  165. 1650 I[178]1
  166. 1660 FT[178][198]([200](EN$(P(I)),1))
  167. 1670 [139]FT[178]0[167][129]IA[178]I[164]NF[171]1:P(IA)[178]P(IA[170]1):[130]IA:NF[178]NF[171]1:[137]1690
  168. 1680 I[178]I[170]1
  169. 1690 [139]I[179][178]NF[167]1660
  170. 1700 [137]810
  171. 1710 :
  172. 1720 :
  173. 1730 [143] SORT ENTRIES
  174. 1740 :
  175. 1750 [153]"LOAD SORTING ENTRIES"
  176. 1760 [153]" PLACING ENTRY 1ON"
  177. 1770 I[178]1
  178. 1780 [139]I[177][178]NF[167]810
  179. 1790 J[178]4
  180. 1800 [139]J[177]16[167]I[178]I[170]1:[137]1780
  181. 1810 A[178][198]([202](EN$(P(I)),J,1)):[139]A[178]160[176]A[178]32[167]A[178]0
  182. 1820 B[178][198]([202](EN$(P(I[170]1)),J,1)):[139]B[178]160[176]B[178]32[167]B[178]0
  183. 1830 [139]A[179]B[167]I[178]I[170]1:[153][163]14)I"CMD  ON":[137]1780
  184. 1840 [139]A[178]B[167]J[178]J[170]1:[137]1800
  185. 1850 K[178]P(I)
  186. 1860 P(I)[178]P(I[170]1)
  187. 1870 P(I[170]1)[178]K
  188. 1880 I[178]I[171]1
  189. 1890 [139]I[179]1[167]I[178]1
  190. 1900 [137]1780
  191. 1910 :
  192. 1920 :
  193. 1930 [143] MOVE DIRECTORY ENTRIES
  194. 1940 :
  195. 1950 I[178]0
  196. 1960 [141]2910
  197. 1970 [153]"MOVES? (YWAIT/NWAIT)ONCMDCMDCMDCMDTO TO ";
  198. 1980 [161]B$:[139]B$[178]""[167]1980
  199. 1990 [139]B$[178]"Y"[167]2070
  200. 2000 [139]B$[179][177]"N"[167]1980
  201. 2010 [139]I[170]20[177][178]NF[167]810
  202. 2020 I[178]I[170]15:[137]1960
  203. 2030 :
  204. 2040 :
  205. 2050 [143] EXPLICIT MOVES
  206. 2060 :
  207. 2070 [153]"    FROM? ";
  208. 2080 ER[178]1
  209. 2090 [141]3260:[139]ER[179][177]1[167]1960
  210. 2100 F[178]T[170]I
  211. 2110 [153]"    TO? ";
  212. 2120 [141]3260:[139]ER[179][177]1[167]1960
  213. 2130 T[178]T[170]I
  214. 2140 [139]F[178]T[167]1960
  215. 2150 K[178]P(F)
  216. 2160 DI[178]1:[139]T[179]F[167]DI[178][171]1
  217. 2170 [129]IA[178]F[170]DI[164]T[169]DI
  218. 2180 P(IA[171]DI)[178]P(IA)
  219. 2190 [130]IA
  220. 2200 P(T)[178]K:[137]1960
  221. 2210 :
  222. 2220 :
  223. 2230 [143] WRITE OUT DIRECTORY
  224. 2240 :
  225. 2250 [153]"LOAD WRITING NEW DIRECTORY"
  226. 2260 [153]" WRITING HEADER BLOCK"
  227. 2270 [159]15,8,15
  228. 2280 [152]15,"I0"
  229. 2290 [132]15,AN$,AM$,AT$,AS$
  230. 2300 [139]AN$[179][177]"00"[137]2840
  231. 2310 [159]2,8,2,"#"
  232. 2320 [132]15,AN$,AM$,AT$,AS$
  233. 2330 [139]AN$[179][177]"00"[137]2830
  234. 2340 [152]15,"U1";2;0;18;0
  235. 2350 [152]15,"B-P";2;144
  236. 2360 [152]2,DN$;ID$;
  237. 2370 [152]15,"U2";2;0;18;0
  238. 2380 [132]15,AN$,AM$,AT$,AS$
  239. 2390 [139]AN$[179][177]"00"[137]2830
  240. 2400 [160]2:[152]15,"I0"
  241. 2410 [159]2,8,2,"#":[132]15,AN$,AM$,AT$,AS$:[139]AN$[179][177]"00"[167]2830
  242. 2420 [153]" WRITING DIRECTORY BLOCK ON"
  243. 2430 I[178]0
  244. 2440 TR$[178][199](0):BL$[178][199](255)
  245. 2450 [139]NF[177]I[170]8[167]TR$[178][199](18):BL$[178][199](BL(I[173]8[170]2))
  246. 2460 [153][163]24)I[173]8[170]1"ON"
  247. 2470 [152]15,"B-P";2;0
  248. 2480 [152]2,TR$;
  249. 2490 [152]2,BL$;
  250. 2500 [129]J[178]1[164]8
  251. 2510 [139]I[170]J[177]NF[167][152]2,NL$;:[137]2530
  252. 2520 [152]2,EN$(P(I[170]J));
  253. 2530 [139]J[179]8[167][152]2,[199](0);[199](0);
  254. 2540 [130]J
  255. 2550 [152]15,"U2";2;0;18;BL(I[173]8[170]1)
  256. 2560 [132]15,AN$,AM$,AT$,AS$
  257. 2570 [139]AN$[179][177]"00"[137]2830
  258. 2580 I[178]I[170]8
  259. 2590 [139](NF[173]I)[177]1[167]2440:[143] MORE ENTRIES TO WRITE OUT
  260. 2600 :
  261. 2610 :
  262. 2620 [143] ALL DONE, UPDATE BAM
  263. 2630 :
  264. 2640 [153]" UPDATING BAM"
  265. 2650 [139]SC[178]1[167][152]15,"V0":SC[178]0:[137]2760:[143] FILE SCRATCHED, FULL UPDATE
  266. 2660 [129]TR[178]0[164]18
  267. 2670 [152]15,"B-F";0;18;TR
  268. 2680 [130]TR
  269. 2690 I[178]NF[173]8
  270. 2700 [139](I[171][181](I))[177]0[167]I[178]I[170]1
  271. 2710 I[178][181](I)
  272. 2720 [129]TR[178]1[164]I
  273. 2730 [152]15,"B-A";0;18;BL(TR)
  274. 2740 [130]TR
  275. 2750 [152]15,"B-A";0;18;0
  276. 2760 [160]2
  277. 2770 [160]15
  278. 2780 [137]370
  279. 2790 :
  280. 2800 :
  281. 2810 [143] ERROR HANDLER
  282. 2820 :
  283. 2830 [160]2
  284. 2840 [160]15
  285. 2850 [153]"LOAD TERMINATED DUE TO DISK ACCESS ERROR"
  286. 2860 [153]" "AN$,AM$:[128]
  287. 2870 :
  288. 2880 :
  289. 2890 [143] SCREEN PRINT PARTIAL DIRECTORY LIST
  290. 2900 :
  291. 2910 [153]"LOAD #   NAME"[163]23)"SIZE  TYPE"
  292. 2920 [129]IA[178]1[164]20
  293. 2930 [139]IA[170]I[177]NF[167]2990
  294. 2940 [153]IA[163]5)[202](EN$(P(IA[170]I)),4,16);
  295. 2950 [153][163]23)256[172][198]([202](EN$(P(IA[170]I)),30,1))[170][198]([202](EN$(P(IA[170]I)),29,1));
  296. 2960 TP[178][198]([200](EN$(P(IA[170]I)),1))
  297. 2970 [141]3120
  298. 2980 [153][163]29)TP$
  299. 2990 [130]IA
  300. 3000 [139]I[178]0[167]3040
  301. 3010 [153]"";
  302. 3020 [129]IA[178]1[164]5:[153][163]33)"(null)WAIT":[130]IA
  303. 3030 [153]"ONONON"[163]35)"FROM":[153][163]35)"PREV.ON":[153][163]35)"ONLIST"
  304. 3040 [139]I[170]20[177][178]NF[167][142]
  305. 3050 [153]"";
  306. 3060 [129]IA[178]1[164]5:[153][163]33)"STEP":[130]IA
  307. 3070 [153]"ONONONONON"[163]35)"ON":[153][163]35)"NEXT":[153][163]35)"LIST"
  308. 3080 [142]
  309. 3090 :
  310. 3100 [143] FIND FILE TYPE
  311. 3110 :
  312. 3120 TP$[178]"":TR$[178]" "
  313. 3130 [139]TP[178]130[167]TP$[178]"PRG ":[142]
  314. 3140 [139]TP[178]0[167]TP$[178]"SCR ":[142]
  315. 3150 [139]TP[177]191[167]TP[178]TP[171]191:TR$[178]"<":[137]3200
  316. 3160 [139]TP[177]159[167]TP[178]TP[171]159:[137]3200
  317. 3170 [139]TP[177]127[167]TP[178]TP[171]127:[137]3200
  318. 3180 [139]TP[177]4[175]TP[179]128[167]TP$[178]"????":[142]
  319. 3190 [139]TP[179]5[167]TP[178]TP[170]1:TP$[178]"*":[137]3200
  320. 3200 [139]TP[177]5[167]TP$[178]"????":[142]
  321. 3210 TP$[178][200](TP$[170]TP$(TP)[170]TR$,4):[142]
  322. 3220 :
  323. 3230 :
  324. 3240 [143] INPUT AND CHECK MOVE INSTRUCTIONS
  325. 3250 :
  326. 3260 T[178]0
  327. 3270 JA[178]1
  328. 3280 [161]B$:[139]B$[178]""[167]3280
  329. 3290 [139]B$[178][199](13)[167]3360
  330. 3300 [139]B$[179]"0"[176]B$[177]"9"[167]3280
  331. 3310 [153]B$;
  332. 3320 T[178]T[172]JA[170][197](B$)
  333. 3330 [139]T[178]21[176]T[170]I[178]NF[170]1[167]ER[178]2:[142]
  334. 3340 [139]T[177]20[176]T[170]I[177]NF[167]ER[178]0:[142]
  335. 3350 JA[178]JA[172]10:[137]3280
  336. 3360 [139]T[179]1[167]ER[178]0
  337. 3370 [142]
  338. 3380 :
  339. 3390 :
  340. 3400 [143] PRINT OUT DIRECTORY
  341. 3410 :
  342. 3420 [153]"LOAD"[163]12)"PRINT DIRECTORY"
  343. 3430 [153][163]7)"TOTOTOTOTOTO"
  344. 3440 [153]" PRESS RETURNWAIT WHEN PRINTER IS READY"
  345. 3450 [161]B$:[139]B$[179][177][199](13)[167]3450
  346. 3460 [153]" INPUT DISK LABEL OR TITLE"
  347. 3470 [153][163]20)"(MAX 32 CHARS)"
  348. 3480 [133]DT$
  349. 3490 [139][195](DT$)[177]32[167][153]" TOO LONGPOKEONONON":[137]3480
  350. 3500 [139][195](DT$)[178]0[167][153]"ONON":[137]3480
  351. 3510 [153]" INPUT DESCRIPTION OR COMMENTS, IF ANY"
  352. 3520 [153][163]20)"(MAX 65 CHARS)"
  353. 3530 DD$[178]"":[133]DD$
  354. 3540 [139][195](DD$)[179]66[167]3570
  355. 3550 [153]" TOO LONGPOKEONONONON"
  356. 3560 [137]3530
  357. 3570 [159]4,4,SG
  358. 3580 [152]4,PC$(1)PC$(2):[160]4
  359. 3590 UC[178]0:[139]([194](53272)[175]2)[178]0[167]UC[178]1
  360. 3600 [139]UC[178]1[167][159]4,4,SU:[137]3620
  361. 3610 [159]4,4,SL
  362. 3620 [152]4,CR$CR$CR$CR$CR$CR$CR$PC$(3)DT$CR$DD$
  363. 3630 [152]4,"INTERNAL DISKNAME(ID):";:[160]4
  364. 3640 [139]UC[178]1[167][159]4,4,SU:[137]3660
  365. 3650 [159]4,4,SL
  366. 3660 C$[178]DN$:[141]3970
  367. 3670 [152]4,C$"("ID$")"CR$:[160]4
  368. 3680 P[178]1:I[178]1:IS[178]13
  369. 3690 [139]I[177]NF[167]3900
  370. 3700 [159]4,4,SU
  371. 3710 [152]4," #    FILENAME                SIZE TYPE   TRACK SECT"
  372. 3720 [160]4
  373. 3730 [139]UC[178]1[167][159]4,4,SU:[137]3750
  374. 3740 [159]4,4,SL
  375. 3750 [129]J[178]IS[164]58
  376. 3760 [139]J[178]IS[167][152]4:J[178]J[170]1:[137]3780
  377. 3770 [139]I[171][181]((I[171]1)[173]5)[172]5[178]1[167][152]4:J[178]J[170]1
  378. 3780 A$[178]EN$(P(I))
  379. 3790 B$[178][200]([196](I)[170]SS$,6)
  380. 3800 C$[178][202](A$,4,16):[141]3970
  381. 3810 B$[178]B$[170][200](C$[170]SS$,23)
  382. 3820 SZ[178]256[172][198]([201](A$,1))[170][198]([202](A$,29,1))
  383. 3830 B$[178]B$[170][200]([196](SZ)[170]SS$,6)
  384. 3840 TP[178][198]([200](A$,1)):[141]3120:B$[178]B$[170]TP$[170]SP$[170]SP$
  385. 3850 B$[178]B$[170][200]([196]([198]([202](A$,2,1)))[170]SS$,6)
  386. 3860 B$[178]B$[170][196]([198]([202](A$,3,1)))[170]SS$
  387. 3870 [152]4,B$
  388. 3880 I[178]I[170]1:[139]I[177]NF[167]J[178]59
  389. 3890 [130]J
  390. 3900 [139]I[177]NF[167][152]4,CR$BF"BLOCKS FREE"FF$;:[160]4:[137]370
  391. 3910 P[178]P[170]1:IS[178]9
  392. 3920 [152]4,FF$CR$CR$CR$CR$CR$CR$CR$DT$;
  393. 3930 [152]4,"                                             PAGE"P;CR$
  394. 3940 [160]4:[137]3700
  395. 3950 :
  396. 3960 [143] CHANGE ASC(160) TO (32)
  397. 3970 CL[178][195](C$)
  398. 3980 [129]IA[178]1[164]CL
  399. 3990 [139][202](C$,IA,1)[179][177][199](160)[167]4030
  400. 4000 C$[178][200](C$,IA[171]1):[139]CL[177]16[167]CL[178]IA[171]1:[137]4030
  401. 4010 C$[178]C$[170]SS$[170]SS$[170]SS$
  402. 4020 C$[178][200](C$,CL)
  403. 4030 [130]IA
  404. 4040 [142]
  405. 4050 :
  406. 4060 :
  407. 4070 [143] ADD DUMMY ENTRY
  408. 4080 :
  409. 4090 I[178]0
  410. 4100 [141]2910
  411. 4110 [153]"ADD DUMMY? (YWAIT/NWAIT)ONCMDCMDCMDCMDTO TO ";
  412. 4120 [161]B$:[139]B$[178]""[167]4120
  413. 4130 [139]B$[178]"Y"[167]4170
  414. 4140 [139]B$[179][177]"N"[167]4120
  415. 4150 [139]I[170]20[177]NF[167]810
  416. 4160 I[178]I[170]15:[137]4100
  417. 4170 [153]"    WHERE? ";:ER[178]1:[141]3260:[139]ER[178]0[167]4100
  418. 4180 F[178]T[170]I
  419. 4190 [129]IA[178]NF[164]F[169][171]1:P(IA[170]1)[178]P(IA):[130]IA
  420. 4200 NF[178]NF[170]1
  421. 4210 P(F)[178]NF
  422. 4220 EN$(P(F))[178][200]([199](131)[170][199](18)[170][199](0)[170]"----------------"[170]NL$,30)
  423. 4230 [137]4100
  424. 4240 :
  425. 4250 :
  426. 4260 [143] EDIT HEADER AND DISK ID
  427. 4270 :
  428. 4280 [153]"LOAD"[163]8)"EDIT HEADER AND DISK ID"
  429. 4290 [153]" DISKNAME:"DN$""
  430. 4300 [141]4420:[139]B$[178]"N"[167][137]4350
  431. 4310 [153]" ENTER NEW NAME (MAX 18 CHARS)"
  432. 4320 A$[178]"":[133]A$:[153]
  433. 4330 [139][195](A$)[177]18[167][153]" TOO LONGONONONPOKE":[137]4320
  434. 4340 [141]4480:[139]B$[178]"Y"[167]DN$[178][200](A$[170]SH$,18)
  435. 4350 [153]" ID:"ID$""
  436. 4360 [141]4420:[139]B$[178]"N"[167][137]370
  437. 4370 [153]" ENTER NEW ID (2 CHARS)"
  438. 4380 [133]A$:[153]
  439. 4390 [139][195](A$)[179][177]2[167][153]" MUST BE 2 CHARSONONONPOKE":[137]4380
  440. 4400 [141]4480:[139]B$[178]"Y"[167]ID$[178]A$
  441. 4410 [137]370
  442. 4420 [153][163]11)"ONTO TO"
  443. 4430 [153]" CHANGES? (YWAIT/NWAIT)"
  444. 4440 [161]B$:[139]B$[178]""[167]4440
  445. 4450 [139]B$[178]"Y"[167][142]
  446. 4460 [139]B$[178]"N"[167][142]
  447. 4470 [137]4440
  448. 4480 [153][163]16)"ONTO TO"
  449. 4490 [153]" ARE YOU SURE? (YWAIT/NWAIT)"
  450. 4500 [137]4440
  451. 4510 :
  452. 4520 :
  453. 4530 [143] SET UP MENU PAGE
  454. 4540 :
  455. 4550 [153]"LOAD"[163]7)"DIRECTORY SCRUNCH AND SORT"
  456. 4560 [153][163]16)"CHOICE?":[142]
  457. 4570 :
  458. 4580 :
  459. 4590 [143] CHANGE ENTRY NAME
  460. 4600 :
  461. 4610 I[178]0
  462. 4620 [141]2910
  463. 4630 [153]"CHANGES? (YWAIT/NWAIT)ONCMDCMDCMDCMDTO TO ";
  464. 4640 [161]B$:[139]B$[178]""[167]4640
  465. 4650 [139]B$[178]"Y"[167]4730
  466. 4660 [139]B$[179][177]"N"[167]4640
  467. 4670 [139]I[170]20[177][178]NF[167]810
  468. 4680 I[178]I[170]15:[137]4620
  469. 4690 :
  470. 4700 :
  471. 4710 [143] CHANGES
  472. 4720 :
  473. 4730 [153]"    NO.? ";
  474. 4740 ER[178]1
  475. 4750 [141]3260:[139]ER[179][177]1[167]4620
  476. 4760 F[178]T[170]I:[153]
  477. 4770 NM$[178]"":[133]"NAME";NM$
  478. 4780 [139][195](NM$)[177]16[167][153][163]27)"ONONTOO LONGPOKE":[137]4770
  479. 4790 NM$[178][200]((NM$[170]SH$),16)
  480. 4800 EN$(P(F))[178][200](EN$(P(F)),3)[170]NM$[170][201](EN$(P(F)),11)
  481. 4810 [137]4620
  482. 4820 :
  483. 4830 :
  484. 4840 [143] DELETE ENTRY
  485. 4850 :
  486. 4860 I[178]0
  487. 4870 [141]2910
  488. 4880 [153]"DELETES? (YWAIT/NWAIT)ONCMDCMDCMDCMDTO TO ";
  489. 4890 [161]B$:[139]B$[178]""[167]4890
  490. 4900 [139]B$[178]"Y"[167]4980
  491. 4910 [139]B$[179][177]"N"[167]4890
  492. 4920 [139]I[170]20[177]NF[167]810
  493. 4930 I[178]I[170]15:[137]4870
  494. 4940 :
  495. 4950 :
  496. 4960 [143] DELETE
  497. 4970 :
  498. 4980 [153]"    NO.? ";
  499. 4990 ER[178]1
  500. 5000 [141]3260:[139]ER[179][177]1[167]4870
  501. 5010 F[178]T[170]I:SC[178]1
  502. 5020 EN$(P(F))[178][199](0)[170][201](EN$(P(F)),29)
  503. 5030 [137]4870
  504. 5040 :
  505. 5050 :
  506. 5060 [143] VIEW DIRECTORY
  507. 5070 :
  508. 5080 I[178]0
  509. 5090 [141]2910
  510. 5100 [153]"TOTOTOTOTOTO":[153]"RETURNWAIT TO CONTINUE";
  511. 5110 [161]B$:[139]B$[179][177][199](13)[167]5110
  512. 5120 [139]I[170]20[177][178]NF[167][142]
  513. 5130 I[178]I[170]15:[137]5090
  514. 5140 [131]162,2,32,198,255,160,0,32,207,255,145,254,200,208,248,96
  515. 5150 [131]1,4,7,10,13,16,2,5,8,11,14,17,3,6,9,12,15,18,DEL,SEQ,PRG,USR,REL
  516.